home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / Progress Bar / Initial next >
Encoding:
Text File  |  1997-06-17  |  109 b   |  7 lines  |  [TEXT/ttxt]

  1. Global BarPosition As Integer
  2.  
  3.     BarPosition=0
  4.     PBDemo.OpenWindow
  5.     Do Draw_Bar
  6.     PBDemo.ShowWindow
  7.